home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / PInterfaces / ASDebugging.p < prev    next >
Encoding:
Text File  |  1998-02-12  |  6.5 KB  |  172 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        ASDebugging.p
  3.  
  4.      Contains:    AppleScript Debugging Interfaces.
  5.  
  6.      Version:    Technology:    AppleScript 1.1
  7.                  Release:    Universal Interfaces 3.1
  8.  
  9.      Copyright:    © 1992-1998 by Apple Computer, Inc., all rights reserved
  10.  
  11.      Bugs?:        Please include the the file and version information (from above) with
  12.                  the problem description.  Developers belonging to one of the Apple
  13.                  developer programs can submit bug reports to:
  14.  
  15.                      devsupport@apple.com
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT ASDebugging;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __ASDEBUGGING__}
  28. {$SETC __ASDEBUGGING__ := 1}
  29.  
  30. {$I+}
  31. {$SETC ASDebuggingIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __MACTYPES__}
  35. {$I MacTypes.p}
  36. {$ENDC}
  37. {$IFC UNDEFINED __FILES__}
  38. {$I Files.p}
  39. {$ENDC}
  40. {$IFC UNDEFINED __COMPONENTS__}
  41. {$I Components.p}
  42. {$ENDC}
  43. {$IFC UNDEFINED __APPLEEVENTS__}
  44. {$I AppleEvents.p}
  45. {$ENDC}
  46. {$IFC UNDEFINED __APPLESCRIPT__}
  47. {$I AppleScript.p}
  48. {$ENDC}
  49.  
  50.  
  51. {$PUSH}
  52. {$ALIGN MAC68K}
  53. {$LibExport+}
  54.  
  55. {*************************************************************************
  56.     Mode Flags
  57. *************************************************************************}
  58. {     This mode flag can be passed to OSASetProperty or OSASetHandler
  59.     and will prevent properties or handlers from being defined in a context
  60.     that doesn't already have bindings for them. An error is returned if
  61.     a current binding doesn't already exist. 
  62. }
  63.  
  64. CONST
  65.     kOSAModeDontDefine            = $0001;
  66.  
  67. {*************************************************************************
  68.     Component Selectors
  69. *************************************************************************}
  70.     kASSelectSetPropertyObsolete = $1101;
  71.     kASSelectGetPropertyObsolete = $1101;
  72.     kASSelectSetHandlerObsolete    = $1103;
  73.     kASSelectGetHandlerObsolete    = $1104;
  74.     kASSelectGetAppTerminologyObsolete = $1105;
  75.     kASSelectSetProperty        = $1106;
  76.     kASSelectGetProperty        = $1107;
  77.     kASSelectSetHandler            = $1108;
  78.     kASSelectGetHandler            = $1109;
  79.     kASSelectGetAppTerminology    = $110A;
  80.     kASSelectGetSysTerminology    = $110B;
  81.     kASSelectGetPropertyNames    = $110C;
  82.     kASSelectGetHandlerNames    = $110D;
  83.  
  84. {*************************************************************************
  85.     Context Accessors
  86. *************************************************************************}
  87. FUNCTION OSASetProperty(scriptingComponent: ComponentInstance; modeFlags: LONGINT; contextID: OSAID; {CONST}VAR variableName: AEDesc; scriptValueID: OSAID): OSAError;
  88.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  89.     INLINE $2F3C, $0010, $1106, $7000, $A82A;
  90.     {$ENDC}
  91. FUNCTION OSAGetProperty(scriptingComponent: ComponentInstance; modeFlags: LONGINT; contextID: OSAID; {CONST}VAR variableName: AEDesc; VAR resultingScriptValueID: OSAID): OSAError;
  92.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  93.     INLINE $2F3C, $0010, $1107, $7000, $A82A;
  94.     {$ENDC}
  95. FUNCTION OSAGetPropertyNames(scriptingComponent: ComponentInstance; modeFlags: LONGINT; contextID: OSAID; VAR resultingPropertyNames: AEDescList): OSAError;
  96.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  97.     INLINE $2F3C, $000C, $110C, $7000, $A82A;
  98.     {$ENDC}
  99. FUNCTION OSASetHandler(scriptingComponent: ComponentInstance; modeFlags: LONGINT; contextID: OSAID; {CONST}VAR handlerName: AEDesc; compiledScriptID: OSAID): OSAError;
  100.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  101.     INLINE $2F3C, $0010, $1108, $7000, $A82A;
  102.     {$ENDC}
  103. FUNCTION OSAGetHandler(scriptingComponent: ComponentInstance; modeFlags: LONGINT; contextID: OSAID; {CONST}VAR handlerName: AEDesc; VAR resultingCompiledScriptID: OSAID): OSAError;
  104.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  105.     INLINE $2F3C, $0010, $1109, $7000, $A82A;
  106.     {$ENDC}
  107. FUNCTION OSAGetHandlerNames(scriptingComponent: ComponentInstance; modeFlags: LONGINT; contextID: OSAID; VAR resultingHandlerNames: AEDescList): OSAError;
  108.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  109.     INLINE $2F3C, $000C, $110D, $7000, $A82A;
  110.     {$ENDC}
  111. FUNCTION OSAGetAppTerminology(scriptingComponent: ComponentInstance; modeFlags: LONGINT; VAR fileSpec: FSSpec; terminologyID: INTEGER; VAR didLaunch: BOOLEAN; VAR terminologyList: AEDesc): OSAError;
  112.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  113.     INLINE $2F3C, $0012, $110A, $7000, $A82A;
  114.     {$ENDC}
  115. { Errors:
  116.        errOSASystemError        operation failed
  117.     }
  118. FUNCTION OSAGetSysTerminology(scriptingComponent: ComponentInstance; modeFlags: LONGINT; terminologyID: INTEGER; VAR terminologyList: AEDesc): OSAError;
  119.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  120.     INLINE $2F3C, $000A, $110B, $7000, $A82A;
  121.     {$ENDC}
  122. { Errors:
  123.        errOSASystemError        operation failed
  124.     }
  125. { Notes on terminology ID
  126.  
  127.     A terminology ID is derived from script code and language code
  128.     as follows;
  129.  
  130.         terminologyID = ((scriptCode & 0x7F) << 8) | (langCode & 0xFF)
  131. }
  132.  
  133. {*************************************************************************
  134.     Obsolete versions provided for backward compatibility:
  135. }
  136. FUNCTION ASSetProperty(scriptingComponent: ComponentInstance; contextID: OSAID; {CONST}VAR variableName: AEDesc; scriptValueID: OSAID): OSAError;
  137.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  138.     INLINE $2F3C, $000C, $1101, $7000, $A82A;
  139.     {$ENDC}
  140. FUNCTION ASGetProperty(scriptingComponent: ComponentInstance; contextID: OSAID; {CONST}VAR variableName: AEDesc; VAR resultingScriptValueID: OSAID): OSAError;
  141.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  142.     INLINE $2F3C, $000C, $1102, $7000, $A82A;
  143.     {$ENDC}
  144. FUNCTION ASSetHandler(scriptingComponent: ComponentInstance; contextID: OSAID; {CONST}VAR handlerName: AEDesc; compiledScriptID: OSAID): OSAError;
  145.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  146.     INLINE $2F3C, $000C, $1103, $7000, $A82A;
  147.     {$ENDC}
  148. FUNCTION ASGetHandler(scriptingComponent: ComponentInstance; contextID: OSAID; {CONST}VAR handlerName: AEDesc; VAR resultingCompiledScriptID: OSAID): OSAError;
  149.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  150.     INLINE $2F3C, $000C, $1104, $7000, $A82A;
  151.     {$ENDC}
  152. FUNCTION ASGetAppTerminology(scriptingComponent: ComponentInstance; VAR fileSpec: FSSpec; terminologID: INTEGER; VAR didLaunch: BOOLEAN; VAR terminologyList: AEDesc): OSAError;
  153.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  154.     INLINE $2F3C, $000E, $1105, $7000, $A82A;
  155.     {$ENDC}
  156. { Errors:
  157.         errOSASystemError        operation failed
  158.     }
  159. {************************************************************************}
  160.  
  161.  
  162. {$ALIGN RESET}
  163. {$POP}
  164.  
  165. {$SETC UsingIncludes := ASDebuggingIncludes}
  166.  
  167. {$ENDC} {__ASDEBUGGING__}
  168.  
  169. {$IFC NOT UsingIncludes}
  170.  END.
  171. {$ENDC}
  172.